������ ��������� ��������� �������� ���������� ����� ����������� ��������� �������. ��������, ���� ���������� ��������� ����������, ������ ��������� ���������� ���������� ������, �� �������� ������ ���� �������� ���� ���������� �����. ����� ���������� �������� ����������� ������ ����� ��� ������ ������ (form-level, module-level). �� ���. 5-4 �������� ������� ��������� ��� ���������� � ������� Visual Basic � ����� ������. ��� � �������� Option Explicit, ���������� ���������� ������ ����� ���������� � ������� Declarations. ��������, ���� ������� ���� Code, ����� ������� (Declarations) ��� ������� (General) � ������:

Dim InterestRate As Currency

•  �������� ���������� InterestRate ����� �������� ���� ����������, ��������� � ������ ������.
•  ��� ��������� ���� ����������, ��������� � ����� �� ��������, ����� �����������.

����������������� ����� Private. Visual Basic 5 ���������� ��� ����� ����� Private ��� ����������� ���������� ������ �����. Private �������� ���������� ��������� Dim, � ��� ����� ������������ ������ ����� ��������� � ������� (General) ��� �����. ����� ������� � ���, ����� �������� ���������� ������ ����� �� ��� ���������� ���������� (��� public) ����������.

��������� ��������

    ����� Visual Basic �������� ��������� ��������� �������, ������ �������� ��������� ���������� ������������. ��� ��������� �������� �� ���������. (��� ����� ����������, ����� �� ������������������� ������.) ����� ���������� ���������� �������������. ������ ����� ������������ � ��������� ���������. ��������, ���������� ���������, ������� ��� ���� ������ ��������� ������. ���� ������� ����� ��� ����� ������������, ��������� ����� ����������. � ��������, ����� ������������ ��� ����� ����� ���������� ������ �����, �� ����� ��������� �� ������ ��� ������ �����������. ����������� ������������� ���������� ����� ������, ������ ���� ���������� ������� � ������ ����������.
    ������� �������� ������������� ����������� ����������. ����� ���������� �� ���������������� �������� ��� ������ ���������. ����� ����, ��� ��� �������� �������� ��� ���������, �� ����������, ����� ������� �������� ���������� �������� ���� ���������� (������ ������, ��� ����� �������� � �������� ����������), � ����� � ���������� �����. ��� ���� ����� �������� ������ ��������� ����������� ����������, ���������� �������� Dim �������� �� ����������������� ����� Static:

Static Counter As Integer, IsVisibie As Boolean

���� �������� ������ ��������� ��������� ������� � ��������� �������, ������� ������������ ����� ������� � ������� ��������� ��������:

Private Sub Commandl_Click ( )
'������ ��������� ���������� ����������� ���������� ��� �������� �������
Static Counter As Integer    '������� ���������� � ����
Counter = Counter + 1
Print Counter End Sub

    ��� ������ ������ �������� ������������� �������� �� ���������, �� ���� 0. ����� Visual Basic ��������� � ���� 1 � ����� ������� ���������.
    ������ ���������, ����� ��� ���������� � ��������� ���� ������������. ��� ����� ���������� �������� ����������������� ����� Static ����� ������� Private Sub, � ������� ���������� ����� ���������:

Static Private Sub Commandl Click ()